home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 17 / AMIGAplus Sonderheft 17 (1999)(ICP)(DE)[!].iso / Rexx / Examples / Xtruder_GetFile.rexx < prev    next >
OS/2 REXX Batch file  |  1997-07-21  |  283b  |  14 lines
  1. /*
  2. ** 'GetFile' example
  3. */
  4.  
  5. Options Results
  6. Address XTRUDER
  7.  
  8. GetFile TITLE '"Select a file..."' PATH '"S:"' FILE '"user-startup"'
  9.  
  10. IF RC = 5 THEN
  11.    RequestUser TEXT '"You forgot to select a file!"' RESPONSE '"Bugger!"'
  12. ELSE
  13.    RequestUser TEXT RESULT RESPONSE '"That was the one!"'
  14.